home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00064_Script_64 < prev    next >
Text File  |  1999-04-25  |  2KB  |  78 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13.  
  14. on startMovie
  15.   global gSelct,gImage,gPlane,gPImage,gInfoSprt,gIImage,Fqtvr, ¼
  16. gFov,gTilt,gPan,FTqtvr,gBlankRO,gTourCast,gMode,gframe
  17.   
  18.   sound stop 1
  19.   sound stop 2
  20.   sound stop 3
  21.   
  22.   global gMSIndex
  23.   
  24.   set gSelct=""
  25.   set gImage=""
  26.   set gInfoSprt=""
  27.   set gIImage=""
  28.   set Fqtvr =""
  29.   set FTqtvr=""
  30.   set gFov=""
  31.   set gTilt=""
  32.   set gPan=""
  33.   set gMode=""
  34.   
  35. --  preload graphics for the "aicraft tour" button animation
  36.   set movieList = [#global.dir:"gx",#se.dir:"se",#ch604:"604",#lear60.dir:"60",¼
  37.                    #lear45.dir:"45",#lear31a.dir:"31a"]
  38.   set movieName = symbol(the movie)
  39.   set tourButNameRoot = getaProp(movieList,movieName)
  40.   if not(voidP(tourButNameRoot)) then
  41.     repeat with index = 0 to 14
  42.       set Name = index&"-"&tourButNameRoot
  43.       preload member Name
  44.     end repeat
  45.   end if
  46.   
  47.   
  48.   --qtvr blank cast for the roll overs
  49.   set gBlankRO = the castnum of sprite 10 
  50.   
  51.   -- qtvr sprite
  52.   set the visible of sprite 6 to true
  53.  
  54.   --setting the frame num of ext marker for return the plane in the 
  55.   --instruction page,
  56.   --when playing back the movie for presentation.
  57.   set gframe= marker("pexterior")
  58.  
  59.   pass
  60.   
  61. end
  62.  
  63.  
  64. on stopmovie
  65.  
  66.   
  67.   --writes milestones to "stones.txt"
  68.   writeFile
  69.   
  70.   
  71.   global menuController, cockpitController
  72. -- clears the created objects
  73.   set menuController = void
  74.   set cockpitController = Void
  75.   unload
  76.  
  77. end
  78.